home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 11 / Amiga Format AFCD11 (Feb 1997, Issue 95).iso / -readerstuff- / david_perks / requesters / reqdemo < prev    next >
Text File  |  1997-01-31  |  3KB  |  86 lines
  1. failat 21
  2.  echo "Presenting a selection of requesters for use in AmigaDos scripts"
  3. assign ENV: ram:
  4. assign t: ram:
  5. areq Want to see some requesters?|YES
  6. areq See details for Areq?|ESSENTIAL|FORGET IT
  7.  if warn
  8.  echo "*nAreq uses the rom AutoRequest routine*nIt returns WARN if Yes selected. (Same as ASK)*nThe Title uses text from calling window."
  9.  list areq
  10.  areq ?
  11.  endif
  12. Areq How about a string requester?|Great|Don't need one
  13.  if warn
  14.   echo "*nINPUT- the string gadget is under 2K, and calls no external libraries.*nThe returned string can be redirected to an environmental variable.*n"
  15.   list input
  16.   input ?
  17.   echo >env:name1 "areq Your name is " NOLINE
  18. lab name
  19.   input >env:name2 Please enter your first name.
  20.   echo >env:name3 "?|Accept|Adjust"
  21.   join env:name1 env:name2 env:name3 as env:name
  22. execute env:name
  23.      if not warn
  24.      input >env:name2 Please enter your correct name
  25.  endif
  26.  endif
  27. lab filereqs    ;******************************************
  28.  
  29. areq How about a file requester?|Yes|No
  30. if warn
  31.     areq Are you using Wb2.+|Yes|No
  32.     if warn
  33.     echo "*nEreq uses Wb2+ EasyRequestArgs*nUse it instead of Areq, it's smaller and more powerful"
  34.     list ereq
  35.     set choice=`ereq "Choose your favourite*n  file requester." Arp|ASL|Reqtools`
  36.     skip $choice
  37.     else
  38.     areq Choose your favourite requester.|ARP|Reqtools
  39.                if warn
  40.                skip 1
  41.                else
  42.                skip 0
  43.                endif
  44.     endif
  45. endif
  46. lab endreqs          ;******************************************
  47.   areq What now?|Requesters again|Author Info
  48.   if warn
  49.   skip filereqs back
  50.   endif
  51. type text1
  52.   areq That's all folks|Go back|Quit
  53.   if warn
  54.   skip filereqs back
  55.   endif
  56. endcli >nil:
  57.  
  58. lab 1             ;******************************************
  59. arpbrowse setenv file DIR s:
  60. echo "*nArp filerequester: You chose " NOLINE
  61. type env:file
  62. echo "*n"
  63. echo >env:file ""
  64. skip endreqs back
  65.  
  66. lab 2             ;******************************************
  67. aslbrowse "setenv file" DIR s:
  68. echo "*nAsl filerequester: You chose $file*n"
  69. setenv file=""
  70. skip endreqs back
  71.  
  72. lab 0        ;******************************************
  73. reqtool f Choose File (dir=s: pat=s#?)|s:|s#?
  74. echo " was your Reqtool File choice. *n*n"
  75. reqtool >env:file r Do you prefer the reqtools.library requesters?|Ofcourse|Sometimes|Library too large|No
  76. echo " You chose item " NOLINE
  77. type env:file
  78. echo "*n"
  79. reqtool >env:file s Reqtools -  Give me some feedback.
  80. echo "You typed " NOLINE
  81. type env:file
  82. reqtool ?
  83. echo >env:file ""
  84. skip endreqs back
  85.  
  86.